(dired-readin): Insert headerline only if necessary. (Not in

recursive listings.)

diff --git a/lisp/dired.el b/lisp/dired.el
index 864d1b6f876d5299e8c282bf7c29f6f6978efd45..07d119f98b49a8f107599286918d5d6a109a5b7d 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -597,7 +597,8 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
        ;; We need this to make the root dir have a header line as all
        ;; other subdirs have:
        (goto-char (point-min))
-       (dired-insert-headerline default-directory)
+        (if (not (looking-at "^  /.*:$"))
+            (dired-insert-headerline default-directory))
        ;; can't run dired-after-readin-hook here, it may depend on the subdir
        ;; alist to be OK.
        )